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EDITORIAL 


Si bien, la elección de un ordenador es 
importante más importante es todavía el saber 
estructurar las instrucciones para lograr una 
mayor eficacia. 

La utilización de un método estructurado facilita 
el desarrollo de los programas y sus posibles 
modificaciones si fueran precisas. De esta 
forma, veremos que programar no consiste en 
escribir el mayor número posible de líneas, sino 
que es mucho más interesante la calidad que la 
cantidad. 

Por esto, una sugerencia que os hacemos, es 
que intentéis varidr los programas que os 
listamos e intentéis mejorarlos. 

Suerte. 
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DE BASIC 



CURSO DE BASIC. BAS-3 


10 

20 ’ 

30 COLORO,1,l:OPEN"GRP:"A£M:SCREEN2,1:G0SUB9000 
40 BEEP:KEYOFF:SCREENO:WIDTH40 

50 PLAY"S1M500T255L64":F0RZ=1T021:K=0:READE$ 

55 IFE*=""THEN80 

60 FORX=40TOKSTEP-l:LOCATEX,Z:PLAY"N=X5" 

70 fort=ito5o:next:printmid*<e*,i,4o-pos<0)):next:k=k+len<e$) +1 
80 IFPLAY(1)=-lTHEN80ELSENEXT 
90 IFINKEY*=""THEN90ELSECLS 

100 C$=CHR3» ( 34) : L0CATE4,2 : PRINT"CON PRINT PINTAMOS EN La PANTALLAS ": L0CATE2,5:PR 
INT"CONSTANTES NUMERICAS”SLOCATE 0,8:PRINT"PRINT “SC*»”012345"SC*:LOCATEO,10SPRI 
NT"LO QUE SE REPRESENTA COMO: PRINTSPRINT" 012345"SG0SUB9500 

110 L0CATE2,5:PRINT"C0NSTANTES ALFANUMERICAS":LOCATE 0.8:PRINT"PRINT "5C*i"HOLA" 

5C*:locateo,io:print"lo que se representa como: ••:print:print"hola":gosub9soo 

120 L0CATE2,5:PRINT"VARIABLES NUMERICAS”:PRINT:PRINT"SI A=123“:LOCATEO,10:PRINT" 
Y TECLEAMOS: PRINT A":LOCATEO,12:PRINT"APARECERA EN PANTALLA: ":PRINT:PRINT" 123 
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":print:print m observa que LOS NUMEROS se representan con espacios a derecha e i 
ZQUIERDA" 

130 G0SUB9550:L0CATE4,2:PRINT"SEPARAD0RES QUE AFECTAN a PRINT:":L0CATE2,5:PRINT“ 
EL SEPARADOR VACIO O NULO ES <5>":LOCATE O,8:PRINT"SI A NUESTRO MSX LE DECIMOS " 

:locateo, io: print m print ";c*5 "hola";c$; "je*; "buenos días" s c*: print 

140 PRINT"APARECERA EN PANTALLAPRINT:PRINT"HOLABUENOS DIAS":PRINT:PRINT"PORQU 
E 5 NO SEPARA NI CONSTANTES NI VA- RIABLES ALFANUMERICAS.":G0SUB9500 
150 L0CATE2,5:PRINT"EL OTRO SEPARADOR ES <,>":LOCATE 0,8:PRINT"SI TECLEAMOS“:LOC 
ATEO,12:PRINT”PRINT "JC$5"HOLA";C$;","JC*5"BUENOS DIAS"Jc*:PRINT 

160 PRINT"PINT ARA EN PANTALLAPRINT:PRINT"HOLABUENOS DIAS":PRINT:PRINT"PART 
E LA PANTALLA EN DOS PARTES":GOSUB9500 

170 LOCATEO,5:PRINT"COMO LOS NUMEROS SE REPRESENTAN DEJANDO ESPACIOS EL SEPARADO 
R 5 NO JUNTA UNOS NUMEROS CON OTROSLOCATE O,10:PRINT"SI A=123 Y B=456" 

180 A=123:B=456:PRINT:PRINT”PRINT A5B PINTARA: “:PRINT:PRINTA!B:PRINT:PRINT"PRINT 
a,b pintara:":print:printa,b:G0SUB9550 

190 L0CATE2,2:PRINT"TABULADO Y ESPACIADO CON PRINT:":LOCATEO.5:PRINT"ESTO SE REA 
LIZA CON DOS FUNCIONES":PRINT:PRINT"EL TABULADO LO REALIZA LA FUNCION TAB(N)DOND 
E N ES EL NUMERO DE COLUMNA DE LA PANTALLA DONDE SE COLOCARA EL PRIMER CARA 
CTER DE UNA CADENA" 

200 PRINT:PRINT"EL ESPACIADO LO REALIZA SPC(M) DONDE M ES EL NUMERO DE ESPACIOS 
PARA COLOCAR LA SIGUIENTE CADENA." 

210 PRINT:PRINT"SI LOS NUMEROS N O M SON MAYORES QUE LA ANCHURA DE LA PANTALLA P 
RINT SALTARA A LA LINEA SIGUIENTE. 11 : G0SUB9550 

220 L0CATE2,3:PRINT"TABULAD0: FUNCION TAB(N)":LOCATEO,5:PRINT"SI TECLEAMOS PRIN 

T" 5 c*¡; "HOLA" ; c$; " 5 TAB (30) J " ; C*; "ADIOS" 5 C9: PRINT: PRI NT "PRI NT PINTARA: " : PRINT*. PRIN 
T"HOLA";TAB(30);"ADIOS" 

230 PRINT:PRINT"DE FORMA QUE LA A DE ADIOS ESTA EN LA COLUMNA 30 DE LA PANTALL 
A.":G0SUB9550 

240 LOCATE2,3:PRINT"ESPACIADO: FUNCION SPC(M)":LOCATEO,5:PRINT"SI TECLEAMOS PRIN 

T";c*;" hola" sc*; m ;spc( 30);";c*;" adios" 5 C*:print:print"print pintara:":print:prin 

T"HOLA" *,SPC (30) J "ADIOS" 

250 PRINT:PRINT"DE FORMA QUE LA a DE ADIOS ESTA SEPARADADE HOLA EN 30 ESPACIOS, 
ES DECIR, EN LA COLUMNA 34.“:GOSUB9550 

260 LOCATEO,1:PRINT"HASTA AHORA HEMOS VISTO LA SEPARACION HORIZONTAL EN LA PAN 
TALLA. SI QUEREMOS SEPARAR EN VERTICAL PODEMOS UTILIZAR PRINT VACIOS, ES DEC 
IR, SIN NADA DETRAS. "*. PRINT: PRINT"SI DECIMOS: " : PRI NT "PRI NT" ; C$! "HOLA" ; Cí: " : PRINT 
:PRINT"J C*í 

270 PRINT"ADIOS"5 C$:PRINT:PRINT"APARECERA:":PRINT:PRINT:PRINT"HOLA";PRINT:PRINT" 
ADIOS":PRINT:PRINT"ADIOS ESTA 2 FILAS MAS ABAJO QUE HOLA PORQUE EL PRINT QUE H 
AY ENTRE LAS DOS CADENAS A DEJADO UNA LIBRE":G0SUB9550 

280 LOCATEO,l:PRINT"EL CONTROL COMPLETO DE LA REPRESENTACIONEN PANTALLA CON PRIN 
T SE CONSIGUE CON UNA INSTRUCCION DISTINTA QUE INDICA EN QUE CASILLA DE LA 

PANTALLA, TANTO HORIZONTAL COMO VERTICAL, VA A PINTARSE LA CADENA" 

290 PRINT:PRINT"ESTA INTRUCCION ES LOCATE X,Y DÓNDE X ESEL NUMERO DE COLUMNA E Y 
EL DE FILA":PRINT:PRINT"UN EJEMPLO ES:":PRINT:PRINT"LOCATE 16,16:PRINT"5C$5"HOL 

a";c$:print:print"que hace:":locatei6,16:prinT"hola" 

300 PRINT:PRINT"LA H DE HOLA ESTA EN LA COLUMNA 16, FILA16 DE LA PANTALLA":GOSUB 
9550 

310 PRINT"AHORA ABANDONARAS EL PROGRAMA PARA QUE PUEDAS PRACTICAR CON PRINT, CU 
ANDO QUIERAS CARGAR EL SIGUIENTE PROGRAMA PULSA LA TECLA DE FUNCION Fl": 
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KEY1,"G0T0500"+ CHR$(13):G0SUB9550:CLS:END 

500 C0L0R15,4,4:CLS:CLEAR:L0CATE4,l'o:PRINT m PARA EL SIGUIENTE PROGRAMA":L0CATE4,1 
2:PRINT"PULSA PLAY EN EL CASSETTE":KEY1,"color ":CLOAD 

9000 DIMC(20.1):REST0RE9100:F0RZ=1T020:READE*,C(Z.O).C(Z.1):LINE(0,0>-<10,10),1, 

bf:draw"bmo, o": printm,e$:t$="":forx=oto7:tss=t*+chrsí < vpeek <x>):next:sprite* (Z) =t 
*:next:colorís 

9010 SOUNDl,o:F0RZ=1T020:XI = INT(RND(1>*241) :YI=RND(-TIME) :YI=32*<YI<.5> + (-191>*( 
YI>=.5) :S0UND8.8:X=(C <Z f 0)-XI)/ABS(C(Z,1)-YI) SFORY=YITOC(Z.1)STEPSGN(C(Z, 1)-YI) : 
SOUNDO,ABS(Y):PUTSPRITEZ,(XI,Y),15,Z:XI=XI+ X:NEXTZNEXT 

9020 F0RZ = 2T013í PLAY"N = ZJ " S LINE <0, O) - (255, 191 ) , Z. BF*. NEXT : FORZ= 1 T025 : C = I NT ( RND ( 1 ) 
*15+.5):IFC=13THENC=1 

9030 SOUNDl,C:SOUNDO,100:S0UND8,8:FORX=1T020:PUTSPRITEX.(C(X.O).C(X.l)).C.X:NEXT 

:next:S 0UND8,o: erasec:return 

9100 DATAC,48,O, U,68,1O,R,88,20,S,108,30,O,128,40.D.168.50.E.188.60.B.38.100.A,5 
8,110,S,78,120,1,98,130,C,118,140,M,158,150,S,178.160.X.198.170.T.68,70,E,88,80, 
M,108,90,A,128,100,3,168,100 

9200 DATACURSO DE BASIC ,,TEMA 3 ,,EN ESTE TEMA VAMOS A VER TODO LO .RELACIONADO 
CON LA INSTRUCCION PRINT. ,,LA INSTRUCCION PRINT ES UNA DE LAS MAS ,UTILES EN P 
ROGRAMACION BASIC. ,, 

9210 DATASE UTILIZA NORMALMENTE PARA REPRESENTAR .CONSTANTES Y VARIABLES EN PANT 
ALLA. ,,OTROS USOS IMPORTANTES PUEDEN SER EL .ENVIO DE INFORMACION A LOS DEMAS P 
ERI- ,"FERICOS COMO LA IMPRESORA, EL CASSETTE ",0 LA UNIDAD DE DISCO. . 

9220 DATA." PULSA CUALQUIER TECLA PARA CONTINUAR " 

9500 BEEP:LOCATE 2,21:PRINT"PULSA CUALQUIER TECLA PARA CONTINUAR" 

9510 IFINKEY$=""THBN9510 

9520 J$=STRING$(40,32):F0RY=3T021:LOCATEO,Y:PRINTJ*:NEXT:RETURN 
9550 BEEP:LOCATE 2,21:PRINT"PULSA CUALQUIER TECLA PARA CONTINUAR" 

9560 IFINKEY*=""THEN9560ELSECLS:RETURN 
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TRIANGULO MAGICO 




2 KEY OFF:SCREENO:WIDTH38:COLOR 1,15,15:RESTORE ÍOOOO:FOR 1=0 TO 21:READ XSULOCA 
TE O,I:PRINTX$:NEXTI 

4 X9s=INKEY$: IF X*=" " THEN 4 

10 S0UND7,VAL(“&B"+"0011011O"):SCREEN2:OPEN”GRP:"ASM 
50 CLS: NM=0: DRAW'BM 24,56" : PRINTft 1 , " 1: PROBANDO" : DRAM'*BH24.66" : PRINTftl, "2: NI VEL I 
":DRAW”BM24,76":PRINTM,"3:NIVEL II":DRAWBM24,86":PRINTftl, " 4:FINALIZAR" 

52 X*=INKEY*:IFX$<"1" OR X$>"4" THEN 52 
54 CLS:IF X*="4" THEN 5000 ELSE 100 
100 GOSUB 900:G0SUB1000:G0SUB1100:G0SUB1200 
102 IF X*="l" THEN 108 ELSE IF X$="2" THEN 200 ELSE 210 
108 P9»=" " 

110 IF P*=L$ THEN 2000 

112 X$=INKEY*:IF X*="" THEN 112 ELSE IF X$="M" OR X*="m" THEN 50 ELSE IF X$<"1" 
OR X*>“6" THEN 112 ELSE XX=VAL(X*) 

115 GOSUB 120:G0T0 110 

120 NM=NM+1:LINE <160,152)-<200,160),15,BF:DRAW'BM160.152":PRINTM,NM 
125 ON XX GOSUB 1500,1510,1520,1530,1540,1550 

130 IF XX=1 OR XX=4 THEN GOSUB 1000 

132 IF XX=3 OR XX=6 THEN GOSUB 1100 

134 IF XX=2 OR XX=5 THEN GOSUB 1200 

140 RETURN 

200 MO=INT<RND<1)*8+3):GOTO 250 
210 MO=INT(RND<2)*20+15):GOTO 250 
250 P$=L$:LINE<0,168)-<256,192),12,BF:FOR K=1 TO MO 

252 XX=INT(RND<3)*5+l):IF <XY=1 AND XX=4> 0R’<XY=4 AND XX=1) OR <XY=3 AND XX=6) 

OR <XY=6 AND XX=3) OR (XY=5 AND XX=2) OR (XY = 2 AND XX=5) THEN 252 ELSE XY=XX 
254 GOSUB 125 

256 NEXTK:DRAW"BM28,176":PRINTM,"NUMERO DE MOVIMIENTOS:";MO:GOTO 110 

900 L*="ABCDEFGHI-:LINE(128,13)-<204,128) ,4:LINE <128,13)-<53,127) ,4:LINE(204, 128 
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>-<53,128),4:PAINT <128,21),4 

905 DRAW"bml10, 16" : PRINTM, "1 2" : DRAW"bm50, 109" : PRINTM . "6 

: DRAW " bmó 1 , 135 " : PRI NTPi 1 , " 5 4 " 

907 DRAW" bm36, 3" : PRINTM , "A" : DRAW " BM28, 16" : PRINTM , " I B" : DRAW" BM20,24 " : PRINTM , " 
H C":DRAW"BM 12,32": PRINTM, "G F E D" 

910 COLOR 1O:FOR 1=0 TO 2:CIRCLE(123+16*1,40+24*1),9:PAINT<128+16*1.40+24*1),10: 
CIRCLE <176-32*1,112) ,9:PAINT<176-32*1,112),10:CIRCLE<30+16*1,112-24*1) ,9tPAINT< 
30+16*1,112-24*1),10:NEXTI:COLOR 1 

920 LINE <72,152)-<200,160) ,15,BF:DRAW"BM73,152":PRINTM, "MOVIMIENTO: 0":RETURN 
1000 PLAY"S8L804E“:FOR 1=0 TO 3: X=125+16*1:Y =35 + 24*I:LINE<X,Y)-<X + 8,Y+10) ,10,BF: 
X = X + 1:Y=Y +1:DRAW"BM=X; ,=Yj ":PRINTM,MID*(L*,I+1,1>::NEXTI:RETURN 

HOO PLAY"S8L804A":FOR 1=0 TO 3:X=173-32*1:Y=107:LINE<X,Y)-<X+8,Y+1O),10.BF:X=X+ 

l: y=y+i:draw"BM=x;,=y;": printm , mid$ <l$,i+ 4,i): nexti:return 

1200 PLAY"S3L804C":p0R 1=0 TO 3:X=77+16*1:Y=107-24*1:LINE(X.Y)-<X+8,Y+1O),1O,BF: 
X=X+1 : Y=Y + 1 : DRAW”BM = X j , =Y; " : PRINTM , MID* <L*, I+7, 1 > : NEXTI : DRAW"binl26,36" : PRINTM , 
LEFT*(L3¡, 1) : RETURN 

1500 L*=MID«<L$,4,1)+MID$<L*,1,3>+RIGHT*<L*,5):RETURN A 

1510 L*=MID*(L*,7,1)+MID$(L$,2,5)+MID*<L$,8,2)+MID*<L*.1,1):RETURN 
1520 L*=MID*ML$,1,3)+MID*(L*,7,1)+MID*<L*,4,3)+RIGHT*<L$.2):RETURN 
1530 L*=MID^(L^,2,3)+LEFT*<L$,1)+RIGHT$<L*,5):RETURN 
1540 L*=RIGHT$<L$, 1 ) +MID* <L*, 2,'5) +LEFT$ <L*, 1) +MID* (L$, 7,2): RETURN 
1550 L$=LEFT*<L$,3)+MID*<L3¡,5,3)+MID$<L*,4,1)+RIGHT$<L*,2):RETURN 

2000 LINE <0,80)-<256,100) ,5,BF:DRAW"bm96,34":PRINTM, "ACABASTE":A$="OIL3CEFDGB02 
L.4C03L8CEFDGB04L4C04L4CEFDGB05L4C " : PLA Y " S12 " + A$ + “Sil "+A$ 

2002 IF PLAY <1)=-1 THEN 2002 ELSE 50 

5000 CLEAR:C0L0R15,4,4:SCREENO:LOCATE 3,1O:PRINT"PULSA PLAY PARA PROXIMO PROGRAM 
A" 

5010 CLOAD 

10000 DATA " TRIANGULO MAGICO",," (Recuerdas el cubo m qico?. Aquí te". 

"presento un nuevo solitario, en apa-", "ri ene i a m s sencillo, pero no te fies"," 
puede llegar a exasperarte.",, 

10002 DATA "Sobre los lados de un tri ngulo tie-"."nes las 9 primeras letras del 
alfabe-","to, estas se mueven empujando desde"."los vórtices. Por ejemplo si en 
el la-","do derecho hay: ABCD" 

10004 DATA "y pulsas 1, t^ ’uedar : DABC","y si pulsas 2. te quedar : BCDA."," E 


s dec i 

ir las tr 

es primeras * t. ras se", "c 

:orren un 

lugar y 

la Pt 11 ima sal ta 

al","otr 

o ex ti remo . " 

10006 DATA " C 

uando qu 

ieras cortar pulsa M 

y te 

1 ","aparecera e1 1 

*1ENU. " . . 1 

' PUL 


SA TECLA PARA COMENZAR" 
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SUMAS 


10 

20 

30 

40 

50 

60 

70 


+++++++ SUMAS +++++++ 


SCREENO:KEYOFF:WIDTH40 

open m grp:"asm:colorí ,ío, ío 

F0RZ=1T0134:PRINT"+ SUMA"5:NEXT 
F0RT=1T02000:next:cls 

COLORI,10,lo:L0CATE15,O:PRINT"S U M A S":REST0RE9000:FORZ=1T021: 

O,Z+l:PRINTE*:NEXT 
80 IFINKEY$=""THEN80ELSECLS 

90 WIDTH39:L0CATE2,8:PRINT"CON CUANTOS DIGITOS QUIERES LA SUMA?" 

95 0NINTERVAL=50G0SUB490 

100 L*=INKEY3¡: IFL*=" " THEN1 OOELSEL = VAL ( L*) 

110 IFL <10RL>9THENBEEP:GOTO100 

120 L0CATE2,10:PRINT"QUIERES RELOJ <S/N)7" 

130 R«»INKEY«: IFR$=" " THEN 130ELSEI FR$< >"S"ANDR*< >"s"ANDR*< >"N"ANDR*< > " r. "THEN130 
COLORI:WIDTH25:CLS:TT=0:SM=2 

CLS:S$="":TM=0:S0=0IF0RZ=1T0SM:A(Z)=INT(RND(-TIME)fclO^L) 

T B =IN T(10-L/2+.5) :SR*=STRING$(L + 3.95) 

COLORÓ: LOCATE 1 , 1 : PRINTUSING" SUMA PtPt" ; SM-1 

F0RZ=1T0SM:L0CATETB+L-LEN(STR*<A(Z)))+1.4+Z:PRINTA(Z):next 
LOCATETE-1,Z + 4:PRINTSR* 

I FR$="S"ORR$="s"THENINTERVALON:L0CATE15,1:PRINT"RELOJ" 

LOCATE5. 19:PRINT"INTRODUCE EL ":LOCATE7.20:PRINT"RESULTADO" 
F0RX=1T0LEN(STR*(S0))-1 


! SO=SO+A(Z) :NEXT 


COLORI:LOCATETB+L,Z+5:PRINTCHR*(219) 

K*=INKEY$:IFK$=""THEN240ELSEG0SUB8040 
IFK3K > " B '* AND (ASC <KS> <480RA3C (K*) >57) THEN240 

IFK$="B"ANDX>1THENL0CATETE + L,Z + 5:PRINT" ":TB=TB+1:X = X-1:S*=MID*(S3»,2,LEN(S*) 


):G0TO230:ELSEIFK$="B"THEN240 


1986 - AMIGOS DEL MSX - 9 
























270 LOCATETB+L,2+5:PRINTKS:TB=TB-1:S$=K$+S$ 
280 NEXT:TT=TT+TM 

290 IFR$="S"ORR$="s"THENINTERVALOFF 
300 S=VAL(S$) 




310 SN=10:F0RY=19T020:F0RX=1T019:BEEP:SN-SN+1:LOCATEX,Y:PRINT M ":NEXTX,Y 
320 IFS=S0THENL0CATE4,19:PRINT"FELICIDADES"ELSE350 
330 REST0RE9100JF0RX=20TG40:READCC:COLORCCíPLAY"T255L64N=X;" 

335 IFPLAY(1)=-lTHEN335 

340 NEXT:COLORI:FORT=1T02000:NEXT:G0T0420 

350 L0CATE2,19:PRINT M LO SIENTO, LA SUMA":LOCATE3,20:PRINT"NO ES CORRECTA" 

360 REST0RE9100:F0RX=30T020STEP-1:READCC:COLOR,CC:PLAY"T100120N=X5" 

365 IFPLAY(1)=-iTHEN365 

370 NEXT:COLORI:FORT=1T02000 : NEXT 

380 L0CATE1,22:PRINT"LA REPETIMOS (S/N)?" 

390 G$=INKEY$: IFG*=""THEN390ELSEG0SUB8000: IFG$< >"S"ANDG$<>"N H THEN390 

400 IFG*="S" AND (R$= ,, S , 'ORR$= ,, s" ) THENTM-0 

410 IFG$="S"THENS*="":CLS:G0T0160 

420 IFSM<10THENSM=SM+i:G0T0150 

430 CLS 

440 IFR*="S"0RR*="s"THENL0CATE4,6: PRINT" TIEMPO TOTAL" : LOC ATES , 3 : PR INTUSING " PtPtPtRt " 
5 TT 

450 LOCATE4,12:PRINT"OTRA PARTIDA (S/N)" 

460 J«=INKEY«:IFJ*=""THEN460ELSEG0SUB8020: IFJ*< > " S"ANDJ$< >"N"THEN460ELSEIFJ*="S" 
THENRUN90 

470 CLEAR:COLORIS,4,4:WIDTH39:SCREENO:L0CATE4,10:PRINT"PARA EL SIGUIENTE PROGRAM 
A":L0CATE4,12:PRINT"PULSA PLAY EN EL CASSETTE" 

480 CLOAD 

490 LOCATE 15,2:PLAY"T255L6405A":PRINTSTRING$(5, " ") :LOCATE15.2:TM = TM+1:PRINTUSIN 

G " PtPtPtPt " j TM 
500 RETURN 

3000 IFASC <G$)<65THEN3010ELSEIFASC<G$) >90THENG$=CHR$ <ASC <G*)-32) 

3010 RETURN 

8020 IFASC(J$)<65THEN8030ELSEIFASC(J3¡)>90THENJ*=CHR*<ASC< J$)-32) 

8030 RETURN 

3040 IFASC(K$)<65THEN8050ELSEIFASC <) >90THENK$=CHR*<ASC< K*)-32) 

3050 RETURN 

9000 DATA" Es un programa para los peques de la".casa (y no tan peques)..." Co 
n OI podr n entrenarse en hacer".sumas y el ordenador comprobar 1 os,resu11ados. 

La suma puede ser desde sumandos de", ''una sola cifra, hasta sumandos de nue 
ve",cif ras. 

9010 DATA," Cuando se haya resuelto correctamente".la suma aumentar en uno el 
nPimero de,sumandos hasta un total de nueve..," Si se desea puede haber un reloj 
que",contar el tiempo transcurrido,, 

9020 DATA" Para borrar un nftmero pulsa la tecla B M f ," PULSA CUALQUIER TECLA PA 
RA COMENZAR" 

9100 DAT A1,2,3,4,5,6,7,8,9, 10, 11, 12, 13, 14, 15,6,2, 11,7,4,5,10,3,9,8 
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E%%3 E%%3 TZZR 




TANQUE 


10 

20 


<<< TANQUE >>> 


30 CLEAR1000:C0L0R15,5,5:KEYOFF:SCREEN1,2:WIDTH29:OPEN"GRP:"ASM:RESTORE 
40 F0RZ=0T0'20: READE*: LOCATEO, Z: PRINTE*:BEEP:NEXT:PLAY"L6402F":G0SUB9500:K=64:FOR 
Z=-16T0255:PUTSPRITE2,<Z,175),1S,2:IFZ/5=INT(Z/5)THENPLAY"s8m100t255164n = k5" 

47 K=K-.2:NEXT:LOCATEO,22:PRINT” PARA CONTINUAR PULSA TECLA":DS=-1 
50 IFINKEY*=""THEN50 

60 COLOR,,l:SCREEN2:GOSUBSOO:G0SUB920 

70 DS=DS+1: G0SUB840: G0SUB910: LINE (O, ID- (255,20) , 15, BF: COLORI : DRAW" BM20, 12" : PRIN 
TM," (ANGULO (10-39 grados)?" 

30 A1*=INPUT*(1):A1=ASC(Al*):IFA1<490RA1>56THEN80ELSEBEEP:DRAW"bm220,12":PRINTM 
, Al* 

90 A2*= INPUT* ( 1 ) : A2=ASC (A2*) : IFA2<430RA1 >57THEN90ELSEBEEP: DRAW"bm228, 12" : PRINTM 
. A2* 


100 AD=163:AN*=A1*+A2*:AN=VAL(AN*):IFAN>44THENPUTSPRITE2,(-16.191).,2:PUTSPRITE3 




,<XT,175),15,3:AD=159 

110 LINE(O,11)-(255,20) ,15,BF:COLORI:DRAW"BM20,12":PRINTM, " (FUERZA (100-999)?" 
120 A1*=INPUT*(1):A1=ASC(Al*>:IFA1<490RA1>57THEN120ELSEBEEP:DRAW"bm200,12”:PRINT 
M , Al* 

130 A2*=INPUT*(1) :A2=ASC(A2*) : IFA2<480RA2>57THEN130ELSEBEEP:DRAW"bm208, 12“:PRINT 
M , A2* 

140 A3*=INPUT*(1):A3=ASC(A3*):IFA3<480RA3>57THEN140ELSEBEEP:DRAW"bm216,12”:PRINT 
M , A3* 

150 AN*=A1*+A2*+A3*:FZ=VAL(AN*) 

160 LINE(O,11)-(255,20),15,BF:DRAW"bmlO,12":PRINTM,"ANGULO:":AN:DRAW"BM130,12": 

PRINTM , “FUERZA: “ ; FZ 

170 ONSPRITEGOSUB1200:SPRITEON 

130 F=1:X0=XT+16:R=FZ/4:A1=3.14-AN*6.23/360:AD=AD+SIN(4.71-AI)*R:CR=XO + ABS <COS(4 

.71-AI)*R):XO=XO-COS(3.14-AI)*R:G0SUB500:G0SUB91O 

185 IFZ<-90THEN200ELSELINE(O,11)-(255,20),5,BF:G0SUB910 
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190 F=2:AD=179:X0=XN:R=(XN-XT+48)/2:AI = .735:AD=AD-16+SIN(AI)*R:CR=X0-R+(COSÍ AI>* 

R/2-8):G0SUB700 

200 G0SUB850:G0SUB920 

210 LIME(O,11)-<255,20),3,BF:C0L0R15:DRAW"BM5,12":PRINTM,"CONTINUAMOS CON LA PA 
RTIDA (S/N)“ 

220 R*=INPUT$<1 ) : IFR*="S"0RR*= ,, s ,, THEN70ELSEIFR*< >"N"ANDR*< > " n " THEN220 

230 C0L0R15,4,4:SCREEN0:WIDTH39:CLEAR200:L0CATE2,10:PRINT“PARA OTRA PARTIDA PIJLS 

A LA TECLA P":LOCATE 2,12:PRTNT"PARA PASAR A OTRO PROGRAMA PULSA F" 

240 R*= IMPUTA ( 1 ) : IFR*= ,, P"ORR$= , 'cJ"THENRUNELSEIFR!*i< >“F"ANDRÍ< > “ f “ THEN240 

250 CLEAR:CLS:L0CATE4,10:PRINT"PARA EL SIGUIENTE PROGRAMA":L0CATE4,12:PRINT"PULS 

A PLAY EN EL CASSETTE" 

260 CLOAD 

500 S=255:PLAY"160vl4o2c","160vl2o3c",“150o2+“:F0RZ=4.71-AITO-.5STEP-.05:XO=CR+I 
NT (COS <Z)*R+. 5) : YO=AD- I NT (SIN ( Z) #R+ . 5) : S0UND1 , 1: S0UND8,5: SOUNDO, S: S=S-4 : PUTS.PR IT 
E5,(XO,YO),15,5 

510 IFX0>2550RY0>1770RY0<-14THENZ=-i.95 
520 T=POINT(XO,YO+16):IFT=9THENZ=-3.95 

530 NEXT:S0UND8,O:PUTSPRITE5,(-16,191),,5:IFZ=-4THEN600 
550 RETURN 

600 PT=PT-50:G0SUB3000:G0T0550 

700 S=255:PLAY"160vl4o2c","160vl2o3c",”150o2f”:FORZ=AIT03.5STEP.05:XO=CR+INT <COS 
<Z)*R+.5):Y0=AD-INT(SIN(Z>*R+.5>:S0UND1,1:S0UND8,5:SOUNDO,S:S=S-5:PUTSPRITE5,(XO 
,YO),15,5 

710 IFX0<00RY0>175THENZ=6.23 

720 T=POINT (XO, YO+16) : I FT=9THE;NZ=4.66 

730 NEXT:S0UND8,O:PUTSPRITE5,(-16,191),,5:IFZ=4.68THEN760 
740 RETURN 

760 G0SUB3000:G0T0740 

800 DRAWBM20, 1PRINTM , "UN MOMENTO POR FAVOR ": DRAW " BM20, 11 ": PR INTM ," ESTOY PRE 
PARANDO EL PAISAJE" 

310 N=RND(-TIME):PSET(0,150),12:F0RZ=3.14T00STEP-.1:X=127+COS<Z)*200:Y=191-SIN(Z 
)*150:YY=RND(1)*20:Y = Y + YY:IFX<-200RX >270THEN815ELSELINE —(X,Y),12 
815 NEXT:LINE(O,100)-(255,191),12,BF:PAINT(127,98),12 

820 PSET(O,150),2:F0RZ=3.14T00STEP-.1:X=127 + COS <Z>*150:Y=191-SIN <Z>*120:YY=RND(1 

)*20:Y=Y+YY:IFX<10RX>230THEN825ELSELINE-(X,Y),2 

325 NEXT:LIME(0,150)-(255,191),2,BF:PAINT(127,148),2 

830 PSET(0,170),3:F0RZ=3.14T0-.1STEP-.1:X=127 + COS <Z)*127:Y=191-SIN(Z)*90:YY=RND( 
1)*20:Y=Y+YY:LINE-(X,Y),3:NEXT:PAINT(127,191),3:RETURN 

840 C0L0R9:XE=INT(RND(1)*75)+ 80:AE=INT <RND(1)*6)+3:FORY=191-AE*8T0191STEP8:DRAW" 
BM = XE! , =Y j PRINTM, " i. U¡ ": NEXT: RETURN 

850 C0L0R3:F0RY=191-AE*8T0191STEP8:DRAW"BM=XE<,=Y;":PRINTM,"¡¡i":NEXT:COLORI5:R 
ETURN 

910 LINE(O,O)-(255,10),1,BF:COLORI5:DRAW"bm10,1":PRINTM,USING"DISPAROS:ftfcftft"!DS 
: DRAW "BM140, 1 " : PRINTM , USING "PUNTOS: + ftP»fthft " ; PT: RETURN 

920 N=RND(-TIME):XT=INT(RND(1)*51):PUTSPRITE3,(-16,191),,3:PUTSPRITE2,(XT,175),1 
5,2:XN=INT(RND(1)*51)+183:PUTSPRITE4,(XN,175),1,4:RETURN 
1200 SPRITEOFF:IFF=lTHENZ=-99:PT=PT+100ELSEZ=99:PT=PT-50 
1210 G0SUB3000:G0SUB910:G0SUB850:RETURN 

3000 S0UND3,O: SPRITEOFF:PUTSPRITE5, (-5,191) ,,5:PUTSPRITEO, (XO,YO> ,6,0:S0UND0, 100 
:S0UND1,10:F0RK=lTO10O:PUTSPRITE1,(XO,YO),8,1:S0UND8,8:F0RT=1T010:NEXT:PUTSPRITE 

! ¡ • 

-- i” 
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l,(X0,191),,l:S0UND3,4:F0RT=1T010:NEXT:NEXT:PUTSPRITEO,<XO,191>,,O:S0UND8,O:RETU 


RN 




15.31.31.31.63.63.63.66.183.183.66.63.. 128.255.255.192.192.2 

117.34.252.. .7.159.252.240.192.192.252.252.252.34.117.117.34.2 


9000 DATA" T A N Q U E","E1 enemigo avanza sobre tu”,ciudad con todos sus 

carros,de combate.,," Tu misi"n consiste en e1 i-",minar1 os uno a uno con tu,tan 
que.,," Para destruirlos tendr s que" 

9010 DATAhacer un disparo certero cal-,culando los grados de tiro y,la fuerza de 
1 disparo.,," Como obst culos tendr s los 11 ;, prop ios edificios de la ciu-,dad que 
no debes destruir por,acci dente.,," Cuidado con el enemigo.".tiene mucha punte 
r i a. 

9100 DATAS,8,8,11, 

52,252,252,34,117, 

52 

9110 DATA,,,,,255,255,1,1,127,127,96,127,182,182,127,16,16,16,16,16,240,248,248, 
248,248,252,6,254,109,109,254,165,169,169,219,219,219,126,60,165,169,219,219,126 
,126,60,60 

9120 DATA,,,,,,192,192 

9500 forz=itoó: forx=.ito3: reade:t*<z> =t*<z> +chr*<e> : next: next 

9510 SPRITE*<2> = T* (1)+T*<2> +T*<3)+T*<4> :SPRITE*<3>=T*<1)+T*(2)+T*<5)+T*<6) 

9520 T*="":F0RX=1T032:READE:T*=T*+CHR*(E):NEXT:SPRITE*(4) -T* 

9530 K*=STRIMG*(8,0):F0RZ=0T01:T*=K*:F0RX=1T08:READE:T*=T*+CHR*(E):NEXT:SPRITE*( 
Z)=T*:NEXT 

9540 T*=K*:F0RX=1T03:READE:T*=T*+CHR*(E):NEXT:SPRITE*(5)=T*:RETURN 
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BIORRITMOS 




¡SCREEN O: 






" ; MN! "-“5 AN. 


FECHA ACTUAL 


100 KEY OFF:RESTORE 10000:DIM M(12):F0R 1=1 TO 12:READ X:M(I)=X:NEXT 
WIDTH 40:C0L0R 15,4,4:DIM M* (11): FOR 1=0 TO 11: READ X*: M* (I ) =X*: NEXT 
102 RESTORE 9000:F0R 1=0 TO 17:READ X$:LOCATE 3,I:PRINTX*:NEXT I 
104 X*=INKEY$:IF X*="" THEN 104 
110 CLS: INPUT ,, Dia de nacimiento: “¡DN 

112 INPUT"Mes de nacimiento:"iMN 
114 INPUT"A$o de nacimiento: " ¡fiN 
116 INPUT "Día actual: ; DA 

113 INPUT"Mes actual:";MA 
120 INPUT"A$o actual!"jAA 

122 CLS:LOCATE 1,4:PRINT"FECHA de nacimiento:"5DN! 

: "! da; ; ma; ; aa: locate lo, io: print"conforme <s/n>" 

128 X*=INKEYi*¡: IF X$=" " THEN 128 ELSE IF X3>="S" OR X*="s" THEN 130 ELSE IF X*="N" 
OR X$="n" THEN 110 ELSE 128 

130 CLS:LOCATE 18,1:PRINT"MENU":LOCATE 2,6:PRINT"1:BIORRITMOS DEL MES":LOCATE 2. 
8 :PRINT"2:BIORRITMOS MES PROXIMO”:LOCATE 2.10:PRINT"3:BIORRITMOS LARGO ALCANZE": 
LOCATE 2,12:PRINT"4:CAMBIAR FECHAS":LOCATE 2. 14 : PRINT"5:FINALIZAR" 

140 X*=INKEY*:IF X*=""THEN 140 ELSE IF X$="1" THEN 500 ELSE IF X$="2” THEN 550 E 
LSE IF X$="3" THEN 200 ELSE IF X*="4" THEN 110 ELSE IF X*="5" THEN 5000 ELSE 140 

200 xi=an:X2=mn:X3=dn:yi=aa:Y 2 =ma:Y 3=i :gosub iooo:goto 2000 

400 CLSILOCATE 2 , 1O:PRINT"Los gr Ticos permanecer n en pantalla hasta que puls 
es tecla." 

410 RESTORE ÍOIOOIFOR 1=220 TO 223:F0R J=0 TO 7:READ K:VPOKE 2048+8*1+J.K:NEXT 3 

y í 

415 X*=INKEY*:IF X*¡=" m THEN 415 
420 RETURN 

500 GOSUB 400:X1=AN:X2=MN:X3=DN:Y1=AA:Y2=MA:Y3=l:GOSUB 1000 :GOTO 650 
550 GOSUB 400:X1=AN:X2=MN:X3=DN:Y3=l:IF MA=12 THEN Yl=AA+l:Y2=l 
552 IF MA< 12 THEN Y1 =AA : Y2=MA+. 1 
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554 GOSUB lOOOCGOTO 650 

600 CLS : RESTORE IOOIOíFOR 1 = 1 TO 1 6 : READ X$»:LOCATE 35 . I : PRINTX*: NEXT I 

601 FOR 1=0 TO 18:LOCATE 2. IlPRINT" \J ":NEXT I:LOCATE 2.19:PRINT" Z Q _Q_Q_Q_U_Q_Q 
_Q_Q_U_Q_Q_Q_Q_U_Q_Q_Q_Q_U_Q_Q_Q_Q_U_Q Q Q" 

602 LOCATE 1.0:PRINT"1 U":LOCATE 1.9:PRINT"0 U":LOCATE O.18:PRINT"-i U":LOCATE 7 

,20:PRINT"5 10 15 20 25":L0CATE 1,21:PRINTM*(Y2-1> 5 Y1 

604 IF Y2 = 2 AND YlÑ4=Yl/4 THEN LOCATE 3i.i9:PRINT" Q " 

606 IF M(Y2)>=30 THEN LOCATE 31,19:PRINT" Q U"!LOCATE 32.20:PRINT"30" 

608 IF M(Y2)=31 THEN LOCATE 33.19:PRINT" Q" 

610 RETURN 

650 GOSUB 600:ND=M(Y2):IF Y2=2 AND Y1/4=Y1Ñ4 THEN ND=ND+i 

655 FOR I=DIAS TO DIAS+ND-1:X=I-DIAS + 3:Y4=9.7-9*SIN<2*3.14159*1/23):Y5=9.7~9*SIN 
(2*3.14159*1/28):Y6=9.7-9*SIN(2*3.14159*1/33) 

670 LOCATE X.Y4:PRINT"F":LOCATE X.Y5:PRINT”E":LOCATE X.Y6:PRINT"I" 

672 IF INT(Y4)=INT(Y5) THEN LOCATE X,Y5:PRINT CHR*(220) 

674 IF INT(Y4)=INT(Y6) THEN LOCATE X,Y6:PRINT CHR*<221) 

675 IF INT(Y5)=INT(Y6) THEN LOCATE X,Yó:PRINT CHR*(222) 

677 IF INT(Y4)=INT(Y5) AND INT(Y4)=INT(Y6) THEN LOCATE X.Y5:PRINT CHR*<223> 

679 NEXT I 

700 X*=INKEY*:IF X$=""THEN 700 ELSE CLS:GOSUB 601 
705 LOCATE 1 . O : PRINT " 3 " *. LOCATE O. 18 5 PRINT "-3" 

703 X*="SUMA DE BIORRITMOS":FOR 1=1 TO 18:L0CATE 37.I:PRINTMID*(X*.I.1):NEXT I 
710 FOR I =D I AS TO DI AS + ND- 1 : X= I-DI AS + 3 : Y4=SIN ( 2*3 . 14 159*1 / 23 ) : Y5=S IN ( 2*3 . 14 159*1 
/28).: Y6 = SIN (2*3. 14159*1/33) 

712 Z=(Y4+Y5+Y6+3)*3:FOR J=18 TO 13-Z STEP -i:LOCATE X.J:PRINT”i":NEXT J:NEXT I 
750 X*=INKEY*:IF X*=" " THEN 750 ELSE 130 

1000 DIAS=0:IF Y1-X1=1 THEN 1025 ELSE IF X1=Y1 THEN 1300 
1005 FOR I=X1+1 TO Yl-1:DIAS=DIAS+365 
1010 IF I/4=IÑ4 THEN DIAS=DIAS+1 
1020 NEXT I 

1025 IF X2=12 THEN 1055 

1030 FOR 1= X2+1 TO 12:DIAS=DIAS+M(I) 

1040 IF 1=2 AND X1/4=X1«4 THEN DIAS=DIAS+1 
1050 NEXT I 

1055 IF Y2=1 THEN 1090 

1060 FOR 1=1 TO Y2-1:DIAS=DIAS+M(I) 

1070 IF 1=2 AND Yl/4 = Ylrsí4 THEN DIAS=DIAS+1 
1030 NEXT I 

1090 DIAS = DIAS + M (X2)-X3: IF X2 = 2 AND X1/4=X1Ñ4 THEN DI AS = D I AS-»-1 
1200 DIAS=DIAS+Y3:RETURN 

1300 FOR I =X2+1 TO Y2-1 : DIAS = DIAS-^M ( I ) : IF 1=2 AND X1/4=X1m4 THEN DIAS = DIAS+1 
1310 GOTO 1090 

2000 SCREEN 2:LINE(O,O)-(256,130),15,BF:DRAW“ C5 BM 16.0 D114 BU2 R239 BU83 L241 
BU25 R4 BD48 L4 BD12 R4 BD24 L4 BD24 R4 M 

2010 open m grp: " asm : color 5:draw m bm7, i m :printm. m i : draw m bm7.26": printm . h o h :dra 

W " BMO , 49 " : PR I NTfc 1 , " -1 M : DRAW “ BM7.61 M 5 PR I NTM . " 3 " : DRAW " BM7.85 M : PR INTM . " O " : DRAW " BM 
C, 109" : PRINTM , "-3" 

2020 J=MA:x=16:DRAW"BM12,1i6":PRINTM,JíFOR 1= O TO 6:J=J-H:IF J=13 THEN J=1 
2025 X=X+M(J):PSET (X,113) ? 12:PSET (X,114),12:K=X-4:DRAW"BM=K;.116MPRINTM,J:NE 
XT IICOLOR 15,4,4 
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2030 DRAW“BM16,150":PRINTM,"VERDE: ESTADO FISICODRAW" BM16. 160PRINTM AZUL: 

ESTADO EMOTIVO":DRAW"BM16.170":PRINTft 1. "ROJO: ESTADO INTELECTUAL":DRAW"BM16,180 
":PRINTM,"AMARILLO: SUMA BIORRITMOS" 

2050 FOR I=DIAS TO DIAS+239 STEP .5:X=I-DIAS+17:Y4=SIN<2*3.1A159*1/23):Y5=SIN(2* 
3.14159*1/28):Y6=SIÑ<2*3.14159*1/33) 

2055 Z=INT((Y4+Y5+Y6+3)*8):LINE <X,111-Z)-<X,111).10 

2060 Y4=29-25*Y4:Y5=29-25*Y5¡Y6=29-25*Y6:PSET(X.Y4) ,2:PSET <X,Y5) .4:PSET <X,Y6> ,6: 
NEXT I:CLOSEM 

2100 X*=INKEY*:IF X*="" THEN 2100 ELSE SCREEN O: GOTO 130 

5000 CLEAR:CLS:LOCATE 4.1O:PRINT"PULSA PLAY PARA PROXIMO PROGRAMACLOAD 

9000 DATA " BIORRITMOS"," Este programa calcula los bi o-", "rritmos <T! 

sico, emotivo e inte-"i"lectual). asi como su suma."," Primero has de introducir 

la" 

9001 DATA "Techa de tu nacimiento y a con-"."tinuaci"n la Techa de hoy."." Tiene 
s tres opciones, la Drime-"."ra calcula los biorritmos de es-","te mes, la según 
da los del mes" 

9002 DATA "pr"ximo y la tercera los de los" , "próximos ocho meses."......" 

A TECLA PARA COMENZAR" 


PULS 


" N I M", " C S 0 " , " I I T " . " A C I " , " 0 V " . " 

10100 DATA 0,224,156,208,152,144,28,0,0,2: 
36,232.28.0.224.128.220.144.248.80.80.224 




O" 
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D D " . " I 0 0 " . " G " . 

,136.28,0,0,224,1 

: IEMBRE" 

" E F E " . 

56,200,1 
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DIAGRAMA DE SECTORES 








10 ’PROGRAMA << DIAGRAMA DE SECTORES >> 

20 * 

30 COLOR 15,4,4:KEYOFF:SCREENO:WIDTH40 

40 RESTORE 9000:F0RZ=0T019:READE*:LOCATEO.Z:PRINTE*:NEXT 
50 L0CATE5,22:PRINT"PULSA UNA TECLA PARA CONTINUAR*' 

60 IFINKEY$=""THEN60 

70 TC = 100: P 1=2*3. 1415926P»: R=60: CLS 
75 OPEN"Qrp: "ASM 

30 L0CATE2.12:INPUT"NUMERO DE VARIABLES"5V 
90 IF V<1 ORV< >INT(V)THEN 70 

100 CLS*. LOCATE 2 . 12 : I NPUT " CUANTOS DATOS TENDRA CADA VARIABLE"?D 
110 IFD<1ORD< >INT(D)0RD>18 THEN100 
120 IFD*V>2000THENPRINT:PRINT"SON DEMASIADOS DATOS ":FORT=1T02000:NEXT:G0T070 
130 DIMA(V,D) ,V$(V) .P(D > .S < V) .R(D) 

140 CLS 

150 F0RZ=1T0V:PRINT"NOMBRE DE LA VARIABLE N."5Z:INPUTV*<Z> 

160 CLS 

170 LOCATE 2,2:PRINT"VARIABLE ";V*<Z) 


180 FORX=1TOD 

190 L0CATE5,X+2:PRINT"DATO N. "5X5:INPUTA(Z,X) 
195 S(Z)=S(Z)+ACZ r X) 

210 NEXT 

220 cls:next 

230 INPUT"NUMERO DE LA VARIABLE A 1 REPRESENTAR 
240 IFVR<1ORVR<>INT(VR)ORVR>VTHENCLS:G0T0230 
250 CLS:L0CATE6,12:PRINT"UN MOMENTO POR FAVOR. 
260 FOR X=1TOD 
270 P(X)=A(VR,X)*TC/S(VR) 

280 R(X)=A(VR,X)*PI/S(VR) 


VR 
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290 next:cls 

300 SCREEN2: DRAW"BM8,0" : PRINTPtl , "REPRESENTACION DE LA VARIABLE 


!LEFT$( 


V*(VR>.10) 

310 CIRCLFí^O.lOO).60,.,.1-3:DRAW"bm70,100u60" 

320 DRAW"BM70,35ul0d5L3U3G3F3U3" 

330 SR=P1/4 
340 FORZ=iTOD 
350 SR=SR+R(Z) 

360 XX=45*C0S<SR):YY=R*SIN(SR) 

370 LINE(70,100)-(70+XX,100-YY):NEXT 

380 DRAW ,h BM 1 20.24 " : PRINTPtl . "SECTOR PORCENT. " 

390 F0RZ=1T0D:YM=Z*8+24:DRAW"BM136,=YM; " : PRINTPtl , USING"PtPt" 5 Z 
400 DRAW "BM 192. = YM? " : PRINTPtl . US ING " PtPtPt. PtPtPt " 5 P (Z) 

410 NEXT 

420 DRAW"BM8,133":PRINTPtl,"PULSA UNA TECLA PARA CONTINUAR" 

430 IFINKEY*=""THEN430ELSESCREEN0 
440 L0CATE5,5:PRINT"MENU DE OPCIONES:" 

450 L0CATE3,71PRINT"1.- REPRESENTAR OTRA VARIABLE":LOCATE3.1O:PRINT"2.- INTRODUC 
IR OTROS DATOS"! L.ÜCATE3. 13:PRINT"3.- TERMINAR EL PROGRAMA" 

460 L$=INKEY$: IFL$=""THEN460 ELSEL = VAL < LS) :IFL<iORL>3THEN460 
470 IFL=1THENCLS:G0T0230 

480 IFL=2THENCLS:ERASEA,V*.P.S,R:RUN70 

490 CLEAR:CLS:L0CATE4,lo:PRINT"PARA EL SIGUIENTE PROGRAMA"ÍL0CATE4. 12 :PRINT"PULS 
A PLAY EN EL CASSETTE":CLOAD 

9000 DATAD I AGRAMA DE SECTORES.." Los diagramas de sectores s 
on sistemas".de representad"n q r fica de datos en.frecuencias relativas.,," Lo 
s datos a representar deben formar",parte de una misma variable. 

9010 DATA." El programa lleva incorporada una base".de datos que permite almacén 
ar la infor-,maci"n. La representac i"n gr fica se.realiza por variables. 

9020 DATA." La lectura del diagrama se real iza".desde la flecha en el sentido c 
ontrario.a las agujas del reloj.,," No se pueden representar m s de 18".datos d 
e variable. 
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LA ABEJA 


>5 


10 

20 


ABEJA >>> 




<<< L A 

COPYRIGHT: M.J. CABELLO MARTINEZ 

F. ALONSO-PASTOR Pil985P» 

30 COLORI,13,13:SCRÉENO, O : IDTH40:KEYOFF:SCREEN3:OPEN"GRP:"ASM:S0UND8.8!F0RT=9T 
OOSTEP-1:S0UND1.T:FORZ=1TO15STEP2:SOUNDO.Z*10:COLORZ:DRAW"BM5.80":PRINTPtl,“LA AB 
EJ A":NEXTZ,T:S0UND8,o:G0SÜB9205 

40 SCREENO:REST0RE9000:F0RZ=1T021:READE*:LOCATEO.Z:PRINTE*;CHR$(7):NEXT:DIMY(24, 

P 

45 IFINKEY$=""THEN45 

47 COLOR15,1,1:SCREENO:J$=STR ING$¡ < 40,32 >:LOCATEO,5:PRINT"(JUEGAS CON:":LOCATEO,3 
:PRINT"JOYSTICK (J)":PRINT:PRINT"TECLADO (T)“:DS*=INPUT*(1):DS=1:IFDS*="J“0RDS$= 
"i "THENPRINT:PRINT"ELIJE TECLA:":G0T085ELSEIFDSi*¡< >"T"ANDDS3K >“t"THEN47 
50 CLS:L0CATE0,5:PRINT"DEFINICI0N DE LAS TECLAS DE MOVIMIENTO:":L0CATE0,7:PRINT" 
(PARA SUBIR LA ABEJA?":G0SUB9100:S$=L$:LOCATEO,7:PRINTJ*:LOCATEO,7:PRINT"PARA SU 
BIR "í LL$ 

60 LOCATEO.9:PRINT" (PARA BAJAR LA ABEJA?":G0SUB9100:B*=L*:LOCATEO,9:PRINTJ3¡:LOCA 
TEO,9:PRINT"PARA BAJAR "5LL* 

70 LOCATEO,ll:PRINT"(PARA IR A LA DERECHA CON LA ABEJA?":G0SUB9100:D$=L$:LOCATEO 
,11:PRINTJ$:LOCATEO,11:PRINT"PARA IR A LA DERECHA " ! LL* 

30 LOCATEO,13:PRINT"(PARA IR A LA IZQUIERDA CON LA ABEJA?":G0SUB9100:I*=L*:LOCAT 
EO, 13: PRINTJSí: LOCATEO, 13: PRINT"PARA IR A LA IZQUIERDA " 5 LL$ 

85 LOCATEO,15:PRINT"(PARA ABANDONAR EL JUEGO?":G0SUB9100:AB$=L$:LOCATEO,15:PRINT 
Jí:LOCATEO,15:PRINT"PARA ABANDONAR " ! LL$ 

37 LOCATEO,18:PRINT"(NIVEL DE JUEGO? (1 DIFICIL - 5 FACIL)":G0SUB9100:NJ=VAL<L$) 

: IFNJ<10RNJ>5THEN87ELSELOCATEO,13:PRINT J$:LOCATEO,18:PRINT"NIVEL"5 NJ:NJ = NJ*10 
90 LOCATEO,21:PRINT"SI ESTAS CONFORME CON ESTAS TECLAS PULSALA TECLA S, SINO CUA 
LQUIER OTRA TECLA" 

100 L*=INKEY*:IFL*=""THEN1OOELSEIFL*< >"S"ANDL*< >"s"THEN47ELSESCREEN2,O:G0SUB9200 
105 SCREEN2:PT=0:NV=1:VD=5:KD*=STRING*(4.46) 
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110 G0SUB8200:FT=0 

120 SCREEN2:Y=7:F0RX=0T0255STEP8:G0SUB9400:NEXT:Y=175:F0RX=0T0255STEP8:G0SUB9400 
:NEXT:X=0:F0RY=16T0175STEP3:G0SUB9400:NEXT:X=248:F0RY=16T0175STEP8:G0SUB9400:NEX 
T 

130 G0SUB8000:G0SUB8300:F0RY=0T024:Y(Y,O)=0:Y(Y.1>=0:NEXT 
140 SP=9:F0RZ=1T0INT(NW5+1):G0SUB8100:NEXT 

150 N=RND(-TIME):FORZ=1T0NV*1OSTEPNV:0=INT(Z/10+1):IF0>6THEN0=6 

160 XO-INT (RND ( 1 ) *30+1 )•: Y0= INT ( RND (1)*19 + 3> : IFY(YO,O> < >OORPOI NT (X0*8 , Y0*8 > < > 1THE 
N160 

170 X0=X0*8:Y(YO,O)=0: Y(YO, 1)=SP:Y0=Y0*8:SP=SP+1:0N0G0SUB9300,9310,9320,9330,934 
0,9350 

180 NEXT:YA=2 

185 FORXI = 1T023:IFPOINT <XI*8,YA*8)=1ANDPOINT(XI*8, (YA+1)*8)=1THENXA=XI:XI=25 
190 NEXT:IFX=26THENYA=YA+l:G0T0185 

200 sx=3:SY=0:XA=XA*8:YA=YA*8:G0SUB9500:S0UND1,o:SOUND8,8¡FORT=255TOO:SOUNDO,T: N 
EXT:S0UND8,O 

205 0NSPRITEG0SUB7000:SPRITEON 
210 D=STICK(DS) 

212 L$=INKEY*: IF!,*=AB$THENS0UND8, O’. G0T010000 
215 fort=itonj:next 

220 IFL*=S$0RD=10RD=80RD=2THENSY=-8:SX=0 
230 IFL$=B$0RD=50RD=40RD=6THENSY=8:SX=0 
240 IFL*=D*0RD=3THENSY=0:SX=8 
250 IFL*=I*0RD=7THENSY=0:SX=-8 
260 T=P0INT(XA+SX,YA+SY):IFT=6THEN9600 
270 SOUNDO,100:S0UND1,1:S0UND8,5:XA=XA+SX:YA=YA+SY: 

N210 

280 S0UND1 , O: F0RT=255T00STEP-1:SOUNDO,T:NEXT:NV=NV+ 

7000 BEEP: SPRITEOFF:FT=FT + 1:CL = Y(INT<YA/8) ,0):PT=PT 
PRITEKT+1, (-8,191) , ,CL:IFCL >4THENPUTSPRITEKT + 2. (-8,220),,CL + 1 
7010 G0SUB3000:SPRITEON:RETURN 

8000 C0L0R2:LINE(100, O)-(250,7) ,1,BP:DRAW"BM50,O":RRINTfcl,USING"P UNTOS: fcft 
;PT: RETURN 

3100 N=RND(-TIME):KD=RND<1):XI=INT(RND(1)*30+1):XF=INT(RND(1)*30+1):YI=INT(RND(1 
)*19+3):YF=INT(RND(1)*19+3):IFABS(XF-XI)>120RABS(YF-YI)>14THEN81OOELSEIFXF-XI=00 
RYF-YI=0THEN3100ELSEIFKD>.5THEN8140 
3110 IFABS(XF< XI)< 20RABS(YF-YI)<2THEN8100 

8120 F0RK1=XIT0XFSTEPSGN(XF-XI):X=K1*8:Y=YI*3:G0SUB9400:NEXT:RETURN 
3140 F0RK1=YIT0YFSTEPSGN(YF-YI):Y=K1*8:X=X1*8:G0SUB9400:NEXT:RETURN 
3200 P0KE62456!,PEEK(62458!):P0KE62457!,PEEK(62459!):SCREEN1:WIDTH30:C0L0R15:LOC 
ATE7,1:PRINT"F RUTAS :":SP=10:FORO=1T06:X=5:Y=0*3:X0=40:Y0=0*24:SP=SP+1:ONOG 
0SUB9300,9310,9320,9330,9340,9350:L0CATE9,Y:PRINTKD*!TAB(15)5 USING"RP» PUNTOS"J O* 
ló:BEEP:NEXT 

8210 L0CATE0,21:PRINT"PARA CONTINUAR PULSA UNA TECLA" 

8220 IFINKEY*=""THEN8210ELSERETURN 

8300 C0L0R13: LINE ( 166, 184) - (200, 191 ) , 1 , BF: DRAWBM70, 184" : PRINTM , USING"V IDAS 
! RR"5VD:RETURN 

9000 DATA'1 LA ABEJA?,," Es un i uego emocionante en el que lo 


S0UND1.5:G0SUB9500:IFFT <10THE 


i:gotoiio 

+CL*10:KT=Y(INT(YA/8),1):PUTS 


s importante 
n " ,,hacer lo y 


es comerse 
tienes que 


machos -frutas...." Si 
procurar no chocar,,con ellas 


i ueqo 

embargo. 


m 


las paredes te impedir 
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1 9 • 

1 

i 

?100 


DATA., 
PULSA 


Las 


teclas de movimiento de la abeia"..podr s elegirlas tu mismo. 


CUALQUIER TECLA PARA COMENZAR" 

L*=INKEY$: IFL$=* " " THEN91 OOELSEL = ASC (L*) :LL$=L$ 
IFL=31THENLL*="CURSOR ABAJO"ELSEIFL=30THENLL$="CURSOR 
IZQUIERDA"ELSEIFL=28THENLL$="CURSOR 


9110 
LL*="CURSOR 
RETURN 


ARRIBA"ELSEIFL=29THEN 
DERECHA"ELSEIFL=320RL<28THEN9100 




9120 

9200 REST0RE9210:F0RSP=0T08:T$="":F0RX=0T07:READE:T$=T$+CHR$(E) :NEXT:SPRITES(SP) 
=T$:NEXT:RETURN 

F0RZ=1T010:NM*(Z) = "MSX":PT <Z)=100:NEXT:S*=CHR*(30) 


9205 

I*=CHR*(29> ‘.RETURN 




:b*= 


=CHR*(31):D*=CHR*(28) 


9210 DATA36.24.90,126,102,126,102,24,8,28,46,111,95.95.46.28.8.110.223.191.191,9 
4.56.O.O.108,190.191.191.95.126.56.ó.6.14.30.60.56.28.12 

9220 DAT A24,36,66,129,129,66,36,24,0,24,52,126.90,44,24,0,0,0,60,90,219.219.90.6 


O.102.24.0.0.0. 


9300 

9310 

9320 

9330 

9340 

9350 

9400 


0 , 0,0 
(XO. 
(XO. 


YO),3,1:RETURN 


YO).8. 


1 RETURN 


PUTSPRITESP, 

PUTSPRITESP, 

PUTSPRITESP, 

PUTSPRITESP.(XO.YO),11,4:RETURN 




(XO,YO),V,3:RETURN 


rU I OrPil I COr , \ AU • l u / , Jl l , *T • nt i ur\ii 

PUTSPRITESP.(XO.YO),12,5:SP=SP+1:PUTSPRITESP.(XO,YO!,13,6:RETURN 
PUTSPRITESP,(XO,YO),8,7:SP=SP+1:PUTSPRITESP,(XO,Y0>,2,8:RETURN 


LINE(X,Y)-(X+6,Y+3) 
6,BF:RETURN 

9500 PUTSPRITEO,(XA,YA) 


6. BF: LINE (X, Y + 5) - (X + 3, Y + 7) , 6, BF : L-INE (X + 5, Y*5) - (X t-7, '■' + 7) 


10 . 


O:RETURN 

9600 SOUNDO,14:SOUND1.200:S0UND8,8:FORZ =J T 050:PUTS D RITEO, (XA,YA) ,10,O:PUTSPRITEO 
, (XA, YA) ¡i 6, O: NEXT : S0UND8 , O 

9610 VD=VD- 1 : G0SUB3300: FOR.T= 1TO1000: NEXT : IFVD>OTHENl10ELSE10000 

ÍOOOO SCREENO:C0L0R7:IFPT<PT(10)THEN10040ELSEPOKE62456!,PEEK(62458!>:POKE62457!, 
PEEK(62459 1 ):SCREEN1:L0CATE4,4:INPUT"(TU NOMBRE"!NM*:PT(1O)=PT:NM*(1O)=NM*¡ 

10010 F0RZ=1T010:F0RZZ=1T09: IFPT(2Z> >=PT<ZZ+1)THEN10030 
10020 SWAPPT(ZZ),PT(ZZ+1):SWAPNMS(ZZ),NM*(ZZ+1) 

10030 NEXT¡NEXT 

10040 CLS:L0CATE8,O:PRINT“PUNTUACIONES: “:FORZ=1T010:LOCATE1,Z + 3: PR INTLEFT* ( NM3¡ (Z 
) , 10) : L0CATE20, Z + 3: PRINTUSING"PtftM , tPtft" ; PT (Z) : NEXT 

10050 L0CATE2,21:PRINT"PARA OTRA PARTIDA PULSA O":L0CATE2,22:PRINT"PARA OTRO PR 
OGRAMA PULSA P 

10060 L*=INKEY*: IFL*=" "THEN10060ELSEIFL*=¡'O" ORL*= “o"THENG0T047ELSEIFL*< >"P" ANDL$ 
< >"d"THEN10060 

CLEAR:COLOR15,4,4:SCREENO¡L0CATE4,1O:PRINT"PARA 


10070 

ATE4. 


EL SIGUIENTE PROGRAMA":LOC 


12:PRINT"PULSA PLAY 


CASSETTE" 


10080 CLOAD 
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INTEGRAL 




5 KEYOFF t SCREEN OIWIDTH 40:C0L0R 15,4,4:F0R 1 = 1 TO 21 : READ X*: LOCATE 0 .I:PRINTX* 
:next i 

6 X*=INKEY$: IF X*=”" T-HEN 6 ELSE SCREEN 0:WIDTH 39 
10 COLOR 15.4.4:KEY l."run 100“+CHR$(13):KEYOFF:GOTO 5000 


AR?" 

502 LOCATE 2.ÍO:PRINT"1:TRAPECIO":BEEP:L0CATE2.12:PRINT“2:SIMPSON":BEEP:LOCATE2, 
14:PRINT"3:NEWTON":BEEP:L0CATE2.16:PRINT”4:TRAPECIOS COMPUESTO":BEEP:LOCATE2,18: 
PRINT“5:SIMPSON COMPUESTO":BEEP 

510 X*=INKEY*:IFX$="“THEN51OELSEIFX*<"1"ORX$>"5"THEN510 

520 cls:beep:input”valor inicial";a:beep:input"valor final":b:ifx»="4"orx*="5"th 
EN BEEP:INPUT"NUMERO DE SUBDIVISI0NES"!N:BEEP 
530 ONVAL<X*> G0T0550.600.700.800.900 

540 DRAW"BM16.24":PRINTM."FORMULA DEL METODO":DRAW"BM8.48":PRINTM."t":DRAW"BM8 
. 56" : PRI NTM . “u" : DRAW "BM 16.42“ : PRI NTM . “b" : DRAW"BM16.62" : PRI NTM . "a" : DRAW" BM22.5 
2" : PRINTM . "-fw" : RETURN 

545 DRAW” BM8.86" : PRINTM . "f (x)="lFí: DRAW “ BM8.96 " : PRINTM . "a=" 5 A: DRAWBM8. 106" : PR 
INTM . “b= " ? B 

547 G0SUB154:DRAW"BM8.136":PRINTM."SOLUCION: “5 S:RETURN 

550 SCREEN2: G0SUB150: DRAWBM70.2" : PRINTM . "METODO DEL TRAPEC10" : G0SUB540: DRAW"BM 
40.52" : PRINTM . " WWW W W ¡ + ( a) ++ (b ) ¿" : DRAW"BM40.46" : PRINTM . " (b-a) " : DRAW"BM56.5 
3":PRINTM ; "2":G0SUB1000:G0SUB545:G0SUB547:G0T0950 

600 SCREEN2:G0SUB150:DRAW"BM70.2":PRINTM."METODO DE SIMPSON":G0SUB540:DRAW"BM40 
. 52" : PRINTM . " W ¡ + ( a) +4f (a + h ) <b) ¿" : DRAW"BM41.46" : PRINTM . " h" 
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100 

DEF FNF( 

X)=-1/(X*X):F^= u • 

-1/(X*X)• 

1 






1 10 

GQT0500 










150 

COLORI:PLAY "L8ABC DEF":L! 

rNF(O,O)- 

- (256. 10) 

. 9. BF 





152 

LINE(0.1 

0)-(256. 

124) . 7. Bf 

--.RETURN 







154 

PLAY"L32C”:LINE( 

0. 124)-(256. 162) . 

11.BF:RETURN 





500 

OPEN"GRP 

: m asm:color 15.< 

4. 12:SCREEN1:LOCATE 0.6:PRINT" (QUI 

E METODO 

QUIERES 

US 

















































































I- 


NThl, "3" : DRAW"BM8.76" : PRINTM . "h=(b-a> /2" 


:GOSUBllOO:G0SUB54 


610 DRAW“BM41.58":PRI 
5:G0SUB547:G0T0 950 

700 SCREEN2:GOSUBl50:DRAW"BM70.2":PRINTM."METODO DE NEWTON":G0SUB540:DRAW"BM40. 
52" : PRINTM . " W W¡f(a) + 3f <a + h> +3+ <a + 2h) +" : DRAW"BM192.62" : PRINTM .. " + f (b) ¿" : DRAW"B 
M41.46" : PRINTM . "3h" : DRAW"BM45.58" : PRINTM . ”8" : DRAW"bm8.76" : PRINTM . "h=(b-a)/3": 
G0SUB1200 

710 GOSUB545:G0T0950 

800 SCREEN2:G0SUB150:DRAW"BM12.2":PRINTM."METODO DE TRAPECIOS COMPUESTO":G0SUB5 
40t DRAW"BM40.52" : PRINTM . " W W W d ¡ f( x >+f(x ) ¿ “ : DRAW " BM41.46 " : PRINTM , " b-a " : 
DRAW"BM48,58" : PRINTM . "N" : DRAW"BM73.43" : PRINTM . "N" 

810 DRAW"BM8.74":PRINTM."x =a+ih:h=(b-a>/N":DRAW"BM16.77”:PRINTM ."i":DRAW”BM64 
. 60“ j PRINTM J " i = l " : DRAWBM120.55" : PRINTM , "i i -1 ” : GOSUB1300: G0SUB545: DRAW " BM 

8.116": PRINTM . ”N=" ; N: G0T0950 

900 SCREEN2:G0SUB150:DRAW"BM20.2":PRINTM."METODO DE SIMPSON COMPUESTO":G0SUB540 
¿DRAW"BM36.52":PRINTM."h d if(x )+4f(x 
910 DRAW"BM8.74":PRINTM."x =a+ih:l= Ó.2 

. " i " 5 DRAW"BM44.60" : PRINTM . " i'nl " : DRAW"BM100.55": PRINTM 
UBI400:G0SUB545:DRAW"BM8.116":PRINTM ( "N="5N:G0T0950 

950 PLAY"L4DF":LINE(O.63)-P256.192).14,BF:C0L0R4:DRAW"BM16.163":PRINTM."1:CAMBI 
AR DE FUNCION":DRAW"BM16.173":PRINTM."2:CAMBIAR DE METODO O VALORES":DRAW"BM16. 
183":PRINTM J"3:FINALIZAR":C0L0R15 

955 X$=INKEY*:IFX*=""THEN955ELSEIFX$="1"THEN5000ELSEIFX«="2"THENRUN1OOELSEIFX*=" 
3"THEN5500ELSE955 

1000 S=(B-A)*(FNF(A)+FNF(B))/2:RETURN 

1100 H=(B-A)/2:S=H* <FNF(A)+4*FNF(A + H)+FNF(B))/3:RETURN 

1200 H=(B-A)/3:S=3*H*(FNF(A)+3*FNF(A+H)+3*FNF(A+2*H)+FNF(B))/8:RETURN 
1300 H=(B-A)/N:S=0:FORI=lTON:S=S+((AERRI*H-A-<I-1)*H)*<FNF<A+I*H)+FNF(A+(1-1)*H> 

)/2)|NEXTI:RETURN 

1400 H=(B-A)/(2*N>:X3=FNF(A):S=0:FORI=1TON:X1=X3:X2=FNF(A+2*I*H-H):X3=FNF(A+2*I* 
H):S=S+H*(X1+4*X2+X3>/3:NEXTI:RETURN 
2000 PRINTS.:RETURN 


) +f ( x ) ¿" : DRAW"BM52.43“ : PRINTM . "N" 

. 2N> : h= (b-a) /2N" : DRAW'BMló. 7?" : PRINTM 
i 1+1 i+2“:G0S 




, 

5000 SCREENO: BEEP: L0CATE1. 1 : PRINT"Mod í-f ica -f* y def fnt(x) en la linea 
carece editada a continuación 


F1 . " 


pul"S"sa ENTER y a continuación 

LIST 100 

5500 CLEAR:KÉY1." color":SCREENO:LOCATE14.10:PRINT"PULSA PLAY":LOCATE17.12:PRINT 
"PARA":LOCATE 11. 14:PRINT"PROXIMO PROGRAMA":CLOAD 


10000 DATA" 


INNUME”." 


INTEGRACION NUMERICA".. 


nte programa te permite cal- 1 ', "cular integrales de-finidas por los mo¬ 


1000 J 

L DATA"todos 

numOricos 

de 

1 

T r ap< 

o SimDSor 

i " . " c 

omDues 

to 

II 





10002 

2 DATA' 1 F 

r i me 

r o 

h 

[• * * 
as de 

i n 

troduc 

o has 

s de" 

1 . "me 

>d i f i 

car 

la LINEA 

100 

y 

íooo: 

5 DATA"cc 

in t i nuac i 

" n has 

d^ 

e i 

e 1 eq 

de integra", " 

c i " n 

•i 

H 

Las di 

Dt. 

ene i as 

■i 

PULSA 

TECLA 

PARA COMENZAI 

R" 


10 ’ 

M 

E N 

0 R 

I 

0 

N 






que a 
BEEP: 


El órese 




T 


integrar^ Dara ell 

li I M 

dar el intervalo 
no como x^3.". . J . 




30 C0L0R15.1.1 KEYOFF:OPEN"GRP:"ASM:G0SUB9200:S0UND1.1:S0UND8.6:X=50:Y=X:RESTOR 
E9500:FORZ=1T08:READE.C:FORK=-8TOY:PUTSPRITEZ. (X.K).C.E:SOUNDO.K +10:NEXT:X=X + 20: 
Y=Y+10:NEXT 

I 
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40 C=15'F0RZ=12T01STEP-1:F0RX=255T00STEP-3:S0UND1,Z:SOUNDO,X:NEXT:NEXT:S0UND8,O 
50 SCREENO:WIDTH39:REST0RE9000 : FORZ= 1T022 : READE3¡:LOCATEO.Z:PRINTE*:NEXT 
60 IFINKEY$=""THEN60ELSECLS 

70 LOCATEO.Í0:PRINT"JUEGAS CON LETRAS (L) O CON NUMEROS <N>" 

30 J*>INPU T *<n:lFJ*<>-L-ANDJ*<>-l-ANDJ*<>-N-A N DJ*<>-n-THEN80EL3ECL8 

90 L0CATE5. 10:PRINT"ELIGE EL NIVEL DE JUEGO: ":PRINT:PRINT 1.- LONGITUD 10 .PRINT 
!PRINT"2.- LONGITUD 20":PRINT:PRINT“3.- LONGITUD 30" 

100 N*=INPUT*<1>:N=VAL(N$):IFN<10RN>3THEN90ELSEN=N*10 

110 IFJ$="N"ORJ$="n"THENG0SUB9100ELSEG0SUB9200 

120 LINE(O.O)-<255.110),6,B:LINE < O,111)-(255.130).6.BF 

130 G0SUB3000:G0SUB3100:G0SUB8200 

í 50 PT= 0 : c= 0 : A < 1) =1: ERASE a: DIMA (N) *.F 0 RZ= 1 T 0 N 

160 A(Z)=INT(RND(-TIME)*TP+1> 

170 C=C+1:G0SUB8100 
175 FORZZ=1T0Z 

130 X=INT(RND(1)*245+2):CC=INT(RND(1)*14+2) . , 

190 PUTSPRITEO. (X f 110) ,6,O:S0UND7,248: SOUND1, CC : S0UND8, 16 
O:PUTSPRITEZZ.(X, Y),CC,A(ZZ):NEXT:PUTSPRITEZZ,(-16.191).O.A(ZZ .PUTSPRITEO, 16, 

120)..0:S0UND8.0 

210 C 0 L 0 R 15 : NEXT: DRAWBM40, 180" tPRINTM. " (CUAL ES LA SECUENCI _ 

220 CX=10:CY=30:LL=0:P0KE62456!,PEEK<62458!):P0KE62457!.PEEK(62459.) 

240 [*=INPUT*!1) :L = ASC(L*) :IFTP=10AND(L< 430RL >57)THEN240ELSEIFTP=26ANDL >90THENL= 
L-32 

250 IFTP=26ANDL<650RL>90THEN240 
260 IFTP=10THENL=L-47ELSEL=L-64 

270 IFA(ZZ)<>LTHENPLAY"02C":PT=PT-1:G0SUB320O:LL=LL-1:G0T0240 

230 LL=LL+1:DRAW"bm=C x 5 .=cv 5 •:IFTP- 10 THENPRINTM f CHR*(47 + L)ELSEPRINTM,CHR*(64 + L 
) 

300 BEEP: CX=CX + 25: IFCX>240THENCX=10: CY=CY + 20 Te . . -,tu C k.pt-pt + 

310 NEXT:LINE(30.130)-<240.191),1,BF:LINE(10,10)-(253.100) ,1 r BF.IFLL ZTHEN 

Z:GOSUB820O 

^30 I FN = 30 ANDPT >2790RN=20ANDPT >1570RN=10ANDPT >49THENDRAW " brn60.50 ” :PRINTP»1; " FELIC 
IDADES!!!":DRAW"BM40,70":PRINTM ; "LO HICISTE MUY BIENS0UND7 r 248:SOUND1,1:SOUND 
o o■FORZ=255T00STEP-1¡SOUNDO,Zí F0RT=1T010:NEXT:NEXT:S0UND8. O 

340'SCREENO:LOCATE14.5:PRINTUSING"PUNTOS:"5 PT:L0CATE5.12:PRINT“OTRA PARTIDA ( 
P) O TERMINAR <T) 

- 7 ca r ^ = t KipyT$ ( 1 ) ■ IFRS= " P " ORR^= " p " THENRUNELSEIFR^< > " T " ANDR$< > " t " THEN350 

360 COLOR 15.4.4:CLS:LOCATE4.10:PRINT”PARA EL SIGUIENTE PROGRAMAL0CATE4 ; 12:PRIN 

T"PULSA PLAY EN EL CASSETTE" 

8000°L^NE <50.135)-(205.145) , 13,B:LINE(160.136)-(200.144).1.BF:C0L0R7:DRAW"bm80.1 
37 " : PR INTP» 1 . US ING " LONGITUD: Ptft " 5 N: RETURN 

3100 LINE(50.150)-(205.160) f 12,B:LINE(160.151)-(200 ; 159).1.BF:COLORIO:DRAW"bm80. 

152":PRINTM.USING"CARACTER: PtP."5C: RETURN . 

8200 LINE <50. 165)-(205 ? 175) .4,B:LINE<144.166)-(200.174) f 1 f BF:C0L0R15:DRAW bm80 f 1 

67" ". PRINTM . USING"PUNTOS: PtPtPtR" 5 PT : RETURN 

9000 DATA" MEMORION",.," Es una prueba a tu memoria; tu MSX",es 

t seauro de que no tienes tanta,memori a como Ol.,,," Pero, quiere que le demue 
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\ 














stres hasta" .donde eres capaz de recordar con una.secuenci a de símbolos que tu o 
rdenador 

9010 DATAte va a ir presentando en la pantalla...." Adem s de poder trabaiar co 
n nPtrneros" . " o letras, puedes elegir el nivel de".MEMORION que desees con secuenc 
i as de. "longitud 10.20 " 30 caracteres. " PULSA CUALQUIER TECLA PARA C0MENZA 
R" > 

9100 SCREEN2, 1: COLORO: F0RZ=48T057: DRAW'bmO. 0" : PRINTftl , CHR*(Z) : T*=" '* : F0RX=0T07:T* 
=T*+CHR*(VPEEK<X>):NEXT:SPRI TE*<Z-47>=T*:LINE<0,0>-<10,10) ,1 , BF:NEXT:TP=10:GOSUB 
9300:COLORI 5!RETURN 

9200 SCREEN2,1:COLORO:F0RZ = 65T090:DRAW "bmO.0":PRXNTM.CHR*(Z):T*=”":F0RX=0T07: T* 
=T*+CHR*(VPEEK(X)):NEXT:SPRITE*(Z-64)=T*:LINE(0.0)-(1O.10).1.BF:NEXT:TP=2Ó:GOSUB 
9300!C0L0R15:RETURN 

9300 T*=STRING*(8.255) :SPRITE*<0)=T*:RETURN 
9500 DAT A13,13,5.4.13.7.15.3.18.10,9.9.15.6.14.15 
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10 REM 
20 REM 




_0 

_ 0 . 

0 9 

0 

0 Ó 

0 

0 

0 


O O 


PROGRAMA "DERRIBO" 


LUIS SANGUINO 


1986 


00000000000 


40 REM 
50 REM 

60 REM _0_0__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_ 0 0 0 
O TITULO Y NIVEL DE DIFICULTAD 


70 REM 
80 REM 


_0_0_0_0__0_0_0_0_0__0_©_0_0_0_0 0 0 0 0 0 


90 COLOR 1,7,13 
100 CLS:SCREEN 3 
110 OPEN"GRP:" AS Pti 
120 PSET(20,30),7 
130 PRINTPti, "DERRIBO" 
140 FOR 1=1 TO 1200ÍNEXT 
150 CLS:SCREEN 1,3 
160 LOCATE O, 1( 

170 LINE INPUT 
180 AI=VAL(R$) 




0 0 0 
_0_0_0 
0 0 0 0 0 


0 0 0 0 


I 


160 LOCATE 0,10: PRI NT" _0_0_C NIVEL DE DIFICULTAD ***" 
170 LINE INPUT" 00000 DE 4A6 00000 " ; R$ 


AI< 4 THEN BEEP:CLS:GOTO 160 




200 REM 

) 

■ O 

r 

I o 
> 

• o 

i o 

1 1 
\ o 

1 

: o 
i l 
: o 
—1 
o 

■ l 
' o 

• 1 
: o 

i 

210 REM _0_0_0. 

_0_0_0 PELOTA _0_ 

220 REM 

1 

O 

1 

o 

1 

o 
-1 
o 

1 

o 

1 

o 

1 

o 

1 

o 

1 

o 

1 

o 

1 

230 cls:key ofi 

r :SCREEN 2,2 

240 B$="":FORI = 

=1TO 5 :read a:b*=b$+ 

250 NEXT:SPRITE* <0)=B$ 


260 FORI=1TO 


270 NEXT:SPRITE* ( 2 )=C* 


280 REM 


290 REM _0_0_0_0_0_0_0 PARED _0_0_0__0_0_ O O 


22 :read a:c$=c*+chr$(a) 


_0_0_0_0_0_0_0_0_0_0_0 
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300 REM 00000000000 

310 FOR 3=5 TO 255 STEP 10 

320 LINE(S-4,O)-<S + 4.6),15.BF 

330 LINE(S-9,8)-(S-l,14),2,BF 

340 LIME(S-4.ló)-(S+4.22).11.BF 

350 NEXT 

360 REM _0_0_0_0_0_0_0_0_0_0_0_0. OOOOOOOOOOOOO 
370 REM O O MOVIMIENTO DE LA PELOTA O O 

380 REM 000 ,0_0_0_0_0_0_0_0 OOOOOOOOOOOOOO 

390 2=186:J=130 
400 N=RND(-TIME) 

410 XI=AÍ:YI=AI 

420 X1=INT(RND(1)*250+1):Yl=30 
430 X=X1+XI 
440 Y=Y1+ YI 

450 IF X >255 OR X<0 THEN BEEP:XI = -XI:GOTO 430 

460 IF Y<O THEN YI = -Yl:GOTO 430 

470 IF Y>192 THEN 780 

430 PUT SPRITE 0,<X,Y),1,0 

490 REM O 0_0_0_0_0_0_0_0_0_0_0_0 0000000000 

500 REM 000 CONDICIONES DE CHOQUE 000 

510 REM 0 0 0 0 0 0 0 0_0 .OOOOOOOOOOOOOO 

520 ON SPRITE GOSUB 970:IF YI>0 THENSPRITE ON 

530 IF POINT (X+1.Y)=15 THEN 540 

535 IF POINT<X+4.Y)=15 THEM 540 ELSE 560 

540 XS=<INT(X/10)>*10+5 

550 BEEP;T=T+100:LINE(XS-4,O)-(XS+4.6).7.BF:IF YI<0 THEN YI=-YI:G0T0 440 

560 IF POINT(X+1 r Y)=11 THFN 570 

565 IF POINT(X+4.Y)=11 THEN 570 ELSE 590 

570 XS=(INT(X/10))*10+5 

580 BEEP:T=T+10: LINE<XS-4,16)-(XS+4.22).7.BF:IFYI<0 THEN YI=-Yl:GOTO 440 
590 IF POINT (X+1.Y)=2 THEN 600 
595 IF POINT(X+4,Y)=2 THEN 600 ELSE 650 
' 600 XS=(INT((X+5)/10))*10 

610 BEEP:T=T+50: LINE ( XS-4,8) - ( XS + 4 . 14) , 7. BF: IFYI < O THEN YI=-Yl:GOTO 440 

620 REM OOOOOOOOOOOOO OOOOOOOOOOOOO 

630 REM _0_0 MOVIMIENTO DE LA RAQUETA O O 

640 REM 00000000000000000000000000 

650 D=STICK(O) 

660 IF D=3 THEN J=J+4 

670 IF D=7 THEN J=J-4 

680 IF D=1 THEN Z=Z-6 

690 IF Z< = 168 THEN Z = 168 

700 IF D=5 THEN Z=Z+6 

710 IF Z> = 186 THEN Z=186 

720 IF J< 8 THEN J=8 

730 IF J >247 THEN J=247 

740 PUT SPRITE 2 .<J-8,Z-3), 1 . 2 

750 X1=X:Y1=Y 

760 GOTO 430 
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770 

730 

790 

300 

310 

320 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

0 . 


YI = -YI:GOTO 440 
H = H + 1 

ÍF H >4 THEN 860 
LINE(O.Z-3)-(255,Z+3),7,BF 
FOR 1=1 TO 25:BEEP:NEXT I 
GOTO 390 


REM 

REM O 
REM 

SCREEN 


O O O _0_0_0_0_0_0_0_.0_0 O O 
O MARCADOR Y FIN DEL JUEGO 
000000 0 _ 0 _ 0 _ 0_0 
1 

LOCATE 0.10:PRINT" 0000 FIN DE LA P 
PRINT:PRINT" 0000000 PUNTQS="?T; 

PRINT:PRINT"QUIERES JUGAR OTRA VEZ S 
A*=INKEYS 

IF A*="S" OR A*="s" THEN H=0:CLEAR: 

IF A$="N" OR A*="r." THEN CLS: END 
GOTO 900 
FOR 1=1 TO 255 
PRINTI;CHR$(I);" ”5 

NEXT I 

beep:sprite off:yi=-yi:return 
DATA 32. 112. 248. 112. 32. 255. 255. 255. 

O. O. 255. 255. 255. 255. 255. 
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NOVEDADES 


IAN KEY-COVER 


IAH 

1 




IAN KEY-COVER ES EL PROTECTOR IDEAL PARA EL TECLADO DE SU AMSTRAD 6128 ESPECIALMENTE DISEÑADO 

PARA REUNIR TODAS LAS CARACTERISTICAS ADECUADAS PARA ELLO: „„ ,, klA 0 _. . 

- PROTECCION FIRME DEL TECLADO DEL CPC 6128 (REALIZADO CON RESISTENTE METACRILATO DE UNA SOLA 
PIEZA CON NERVIOS LATERALES PARA FIJACION EN EL REBORDE DEL CONJUNTO DE SU ORDENADOR). 

- AJUSTE PERFECTO EN SU ORDEÑADOR CON SUAVE PRECISION Y COBERTURA TOTAL. 

- TRANSPARENTE (CONFIRIENDOLE LA PROPIEDAD DE VISUALIZAR EN TODO MOMENTO SU TECLADO). 

- PROTECCION CONTINUA CONTRA ELEMENTOS EXTERNOS (COMO: DERRAMES DE LIQUIDOS, GOLPES, ETC.) 
ADEMAS DE GOZAR DE LA SEGURIDAD DEL BUEN FUNCIONAMIENTO DE SU ORDENADOR AL REANUDAR SU 
DIARIO QUEHACER. UN POCO DE CAFE DERRAMADO SOBRE SU TECLADO ELEVARA ENORMEMENTE EL 
PRESUPUESTO ANUAL DE SU ORDENADOR. EVITE EL RIESGO, PROTEJASE. 

- RESGUARDO PERMANENTE CONTRA EL POLVO Y LA POLUCION (EL 50 % DE LAS AVERIAS DE SU TECLADO SON 
MOTIVADOS POR EL CONTACTO CONSTANTE DE ESTE CON EL POLVO Y LAS PARTICULAS ATMOSFERICAS, EL 
EXCESO DE HUMEDAD, ETC.). ELIMINE UN RIESGO CONTINUO, DOSIFIQUELO. 

- MANTENGALO LIMPIO SU AMSTRAD 6128, CUBRIENDOLO CON IAN KEY-COVER. 

- DELE AL TECLADO DE SU AMSTRAD 6128 ESA SENSACION DE PULCRITUD, SENTIDO DEL ORDEN Y APARIENCIA 
EXTERNA QUE SU AREA DE TRABAJO, ESTUDIO O ENSEÑANZA, REQUIERE. 
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Para Programadores MSX 
tu fiel compañero. 

Esto no es un libro para el 
principiante novato, al con¬ 
trario, introduce al progra¬ 
mador MSX "dentro" del or¬ 
denador, para mostrarle exac¬ 
tamente como funciona y co- 
moobtenerel máximo partido. 

Los autores han dividido 
su libro en dos partes. 

La primera parte cubre el 
diseño del sistema, como el 
vocabulario de BASIC se rela¬ 
ciona con los ordenadores 
MSX, y una introducción có¬ 
digo máquina. Encontrará ex¬ 
plicaciones detalladas sobre la 
organización de la memoria, 
los modos de pantalla y los 
circuitos de vide y sonido. 

La segunda parte se dedica 

al uso del lenguaje ensam- _ 

blador en el sistema MSX. Los principales apartados incluyen los 
puntos: 

— El procesador de pantalla de vídeo. 

— El circuito de sonido AY-3-8910. 

— Entradas/Salidas. 

Tanto si necesitas escribir programas de alta eficacia o 
solamente quieres como trabaja tu ordenador, este libro será 
inestimable. Pensamos que rápidamente se convertirá en el 
texto base para aquellos programadores que quieren hacer 
algo más que escribir programas en BASIC. 

P.V.P. 1800 pts! 



GUIA DEL PROGRAMADOR MSX 


CODIGO MAQUINA PR ° ractica'° N 

La llegada de standar MSX, p—■— • 

marca un paso significativo 
dentro del mundo de los or¬ 
denadores domésticos. Ofre¬ 
ce infinidad de excitantes 
oportunidades para progra¬ 
madores y usuarios. 

Este libro, supone que no 
tienes conocimientos previos 
sobre código máquina. Em- 
explicando las equivalentes 
en código máquina, de las 
principales instrucciones en 
Basic, tales como IF, FOR/ 

NEXT, PRINT, COTO, GOSUB, 
etc... Continúa con la descrip¬ 
ción muy detallada de las ru¬ 
tinas individuales de un sim¬ 
ple juego: "INVASOR DEL 
ESPACIO", y cómo se enlazan 
estas rutinas que puedes 
aprovechar en tus programas 

en Basic. __ 

• Aprende lo fácil que es incorporar rutinas en código 
máquina dentro de tus programas en Basic. 

• Usa el código máquina para crear sonido y gráficos. 

• Diseña tus propios caracteres y "escenarios" con dos 
programas fáciles de usar. 

Tanto si simplemente desea incluir rutinas para acelerar y 
mejorar tus programas en Basic, como si quieres un programa 
completo y potente en código máquina, encontrarás este 
libro extremadamente útil. En él está suprimida la teoría que 
dificulta el código máquina, y se presenta de una forma 
práctica y divertida de aprenderlo. 

P.V.P. 1.200 pts. 






• La mayor variedad de libros de microinformática, 
capaces de satisfacer todas sus necesidades, ya sean 
profesionales, familiares, culturales... 

• Todo tipo de información bibliográfica sobre micro- 
ordenadores, desde AMSTRAD a Sinclair QL 


TARJETA DE PEDIDO 


Domicilio de envíos: 


Wnmhro v nnolliHoQ ... . 

. j . 

Domicilio .. 


... N. 0 .... 

.. Piso. Pta. 

C. P. Ciudad. 

. Provincia.... 




Ruego sírvanse remitirme CONTfRA REEMBOLSO los siguientes libros: 


Número 

Cantidad 

TITULO Y AUTOR 

Importe 
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CURSO DE 

BASIC+ 

MICROORDENADORES 


Microordenador 
ZX SPECTRUM 


CENTRO DE ENSEÑANZA A DISTANCIA 
AUTORIZADO POR EL MINISTERIO DE 
EDUCACION Y CIENCIA N.° 8039185 

(BOLETIN OFICIAL DLL ESTADO 3-6-83) 
Aragón, 472 i.Dpto. REF. T*X2 08013 Barcelona 
Tel.: (931 24S 33 06 


* 


Microordenadores 
AMSTRAD, MSX, PC 


Para 

saber cómo 
hablar con los 
ordenadores 


El Curso CEAC a Distancia, 

BASIC + Microordenadores, 
le va a introducir paso 
a paso, con un cuidado 
método, en uno de los temas más 
apasionantes de nuestros días: 
la programación de ordenadores. 

Al aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje diseñado 
especialmente para dar los primeros pasos 
en programación, estará sentando las bases 
para el estudio de cualquier otro 
lenguaje de alto nivel. 

Curso CEAC 

de BASIC + Microordenadores: 
un diálogo permanente 
con el ordenador. 


Otros Cursos: 

- Introducción a 
la Informática 

- Electrónica (con experimentos) 

- Contabilidad 

- Fotografía 

- Curso de Video 

- Decoración 


ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 

DEL DECRETO 707/1976 Y A LA ORDEN MINISTERIAL DE 5/2/1979 


3 


GRATUITAMENTE 


deseo recibir a la mayor 
brevedad posible información 
sobre el Curso de: _ 


Nombre y apellidos. 


.Edad. 


Domicilio. 


CEAC 


C Postal. 


. Población. 
. Provincia. 









































